home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 8: LINUX Games / Linux Cubed Series 8 - LINUX Games.iso / games / x11 / rpg / crossfir.92 / crossfir / crossfire-0.92.5 / lib / adm / make_ericsrv_file.pl < prev    next >
Perl Script  |  1996-07-24  |  591b  |  21 lines
  1. #!/usr/local/bin/perl
  2. open(BMAPS,"bmaps.paths") || die("Can't open bmaps.paths: $!\n");
  3. open(ESRV,">esrv_xpm.eric") || die("Can't open esrv_xpm.eric for write: $!\n");
  4. $_ = <BMAPS>;
  5. while(<BMAPS>) {
  6.     chop;
  7.     die("Unknown line: '$_'\n") unless /^\\(\d{5})\s+(\S+)$/o;
  8.     $num = $1;
  9.     $file = $2;
  10.     print "$num $file\n" if ($num % 50) == 0 ;
  11.     open(FILE,"$file\.xpm") || die("Unable to open $file\.xpm for read: $!\n");
  12.     print ESRV "ESRV_XPM $num $file\n";
  13.     while(<FILE>) {
  14.     print ESRV $_;
  15.     }
  16.     close(FILE);
  17.     print ESRV "ESRV_XPM_END\n";
  18. }
  19. close(ESRV);
  20. close(BMAPS);
  21.